program programa;
aspect 
	aspecto1	
		begin
			writeln("Aspecto!")
		end
	before proc1 : aspecto1;

begin	
end.
